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Hel HH EE LL pp pp : 
He HH EE LL pe pp : 
HHHHHHHHHH §EEEEEEEE LL PPPPPPpP 
HHHHHHHHHH = EEEEEEEE LL PPPPPPpP ; 
HH HH EE LL PP a 
HH HH EE LL pp i 
HH HH EE LL PP es : 
HH HH EE LL PP aaieel ; 
HH WH EEEEEEEEEE LLLLLLLLLL PP ewes i 
fia HH EEEEEEEEEE LLLLLLLLLL PP ween : 
LL III] SSSSSSSS : 
LL HII] SSSSSSSS H 
LL I] SS : 
LL II SS ; 
LL I] $s 
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LL Il SSSSSS 
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LL II SS 
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DISKSVMSMASTER: (HELP. SRCJHELP.B32;1 (1) 


MODULE help_help ( 
LANGUAGE (BLISS3 
ADDRESSING “RODE (EXTERNAL =GENERAL, 
ONEXTERNAL=LONG. RELATIVE), 
IDENT = ‘V04-00 on 


ty = HELPSSTART- 


Wr 


uw 


BEGIN 


t 

i eeeeeererereenrereeeeeeereeeeeeeteeeeeeeeeeteeeeeeeneeeeeereeenereeeeeeeeeee 

'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS 

le ONLY IN ACCORDANCE WITH THE TERMS OF Sue LICENSE AND WITH 
I 


2) 
Sb 4 ss a 


SSSSSsss 


't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'# COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
* 
* 
* 
® 
* 
. 
. 
. 

'® TRANSFERRED. * 
* 
® 
* 
. 
* 
4 
® 
* 
* 
+ 


oO 
oO 


'e 

'@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
- CORPORATION. 

iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

;: SOFTWARE ON EQUIPMENT WHICH IS N 

i 

| eaaoenegneesensnosbensenonnsnsonsnesenesseennncseneeneneqnesneneesounecenee 


Y 

NOT SUPPLIED BY DIGITAL. 
io 

FACILITY: DCL SHELP command 

i ABSTRACT: 


WO CONAULS WN OOONOUS WhO 


=OODODNAMNE WN $O OBNOUES WN S$ O CONAN WN (OOONOUE WN 


The DCL HELP command provides on-line information retrieval. 
i ENVIRONMENT: 
VAX native, user mode. 


See 
ws 


, 


CNAULSWN —OOOnour 


= 
oo 


AUTHOR: Peter George, CREATION DATE: 11-May-1981 
i MODIFIED BY: 
v03-006 Rewetre Maria del C. Nasr 11-Jul-1984 
roouy T supp ress all output. Allow prenet tog 
oo 1tNO OUTPUT qualifier only if explicitly specified. 


v03-005 PCG0017 Peter George 11-Apr-1984 
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a a a ee ee a a ed dd od dd od od I IOOOOOOO 
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NOUS WN OO 


Wns 
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a aE 


<= 


douse oie 
UPwn— 


BS db 8 tt a te 


iScBeo-1904 01:87:54 ARTY ati 


ep | defaulting of output qtrees. processing 
of jus RLIBRARY and signalling of errors returned 
by LBRSOUTPUT_HELP. 


v03-004 PCG0016 Peter George 12-0ct-1983 
Abort on write errors. 
v03-003 PCG0015 Peter George 15-Sep-1983 


Change page break prompt. 


v03-002 Ag fe r Geor 
Co OLISINTERFACES rout nes Vor parsing. 


at HELP/PAGE ye command procedures. 


v03-001 PCG0013 eor’s 
Add /LIBLIST ond. FiNSTRUCT ON qualifiers. 


15-Dec-1982 


01-Jul-1982 


s-32 V 
TER: 


4.0-742 
cH HELP. SRCJHELP.B32; 1?” 


<= 
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P HELP 16-Sep-1984 01:37:54 VAX"11 Bliss-32 v4.0-742 6 , 

YO 008 eae eee eae esters Meo eRe werp.eso:1 28 cod \ 

LIBRARY 
*SYSSLIBRARY:STARLET'; 


REQUIRE 
HEL PDEF"; 


sa 


' 
; Declare static strings 


MACRO 
SDCA) = 
BIND ZNAME('SD_*,A) = Sdescriptor(a)%; 
*KEYWORDS', 
"PROMPT", 
*PAGE* 


VINO OONOULS WMO 
z 


ooo 


"LIBLIST’ 
"INSTRUCTIONS’, 
"USERLIBRARY', 
"ALL 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 Sp¢ 

1 

1 

1 

1 

1 

1 

1 

1 

: ‘ z 
1 *PROCESS', 
1 "GROUP? 
"SYSTEM, 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 | 
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wn 


BIND 
pagebrk_prompt = SDESCRIPTOR (‘Press RETURN to continue ... "), 
SySinput = S$DESCRIPTOR ('SYSSINPUT') : SBBLOCK; 


SELESRELSLSSSLESL 
VESE 


o 
co 


EXTERNAL ROUTINE 
Lib$get_input, ' Get a Line from SYSSINPUT 
scr$erase_page, ' Clear streen 
Lbr$output_help, ! Get help text 
cli$get_value, Get entity value 


cli$present; 


EXTERNA 
lor 


Is entity present 


ab a 


WN —OOBNOVUE WN “OC OONOUEWN—O 


LESRENLSS 


bet juseee : ADDRESSING_MODE (GENERAL); ! RMS STV from Librarian 


SSNS 


=930 


Owoo 


' Get a Line of input text 

' Driver to call help output routines 

! Put a page break 

' Put a line of output text to the screen 

' Determine characteristics of SYSSOUPUT 

' Open SYSSINPUT 

' Open SYSSOUTPUT 

! Deassign, disconnect, close all open files 
! Upper case a string 


open_sysinput, 
open_sysoutput, 
clean_up 


make_upper_case; 
EXTERNAL LITERAL 


cli$_present, 
cli$_defaulted, 


—~ 

~~ 
> 
Q) 
«a 
a 

—-® Ci 

> — 
a 
=] 
—s 
°o 
e 


Entity is present 
Entity is present by default 


Be Be Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Se Ge Ge Se Ge Se Se Fe Ge Ge Fe Ge Se Ge Ge Se Ge Se Se Se Se Se Ge Se Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se Se Ge ee. 
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P HELP 16-Sep 4 VAX=11 Bliss-32 V4.0-742 Page 4 t 
¥O5-000 13-888 198 93: 31: 34 DISKSVMSMASTER: CHELP.SRCJHELP.B32; 1 . (2) \ 
; 7 ; 1 cli$_negated, ! Entity is explicitly negated i 
3 155 7 1 Lor$_en topic; i Status eye lLbr$Soutput_help to abort i 
3 ; f 5 : ! help on a particular topit : 
i ; ? i sing ! Truthness 
© = . : 
; re f : false = 6; ! Falsity : 
: 14 731 1 OWN i 
s 128 7 ; 1 sysinchan, ' Channel assigned to sieeiey ; 
> (1446 07 1 sysoutrab Beye Crab$c_bin) ! RAB for output to SYSS$OUTP i 
3: «(145 7 1 sysout_name ": $BBLOCK Cds $t_s pind. ! String descriptor for raat name i 
; 146 7 5 1 sysoutdesc. : $BBLOCK ds e$c. 8 ! String descriptor for output file name : 
3: «(147 3 § 1 outputdesc : S$BBLOCK Cdsc$c_ “3 ptr}. ! Local descriptor for prompt response ‘ 
> 148 737 (1 outputbuf : S$BBLOCK chips Bagesizel, ! Buffer for prompt ‘ 
3; «6149 8 8 1 current height : INITIA ! Number of Lines currently output 
: 150 739 «1 List_heTght, ! Number of Lines on a page 
3 133 toe : help_flags : SBBLOCK (4); ! Control flags 
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SAN NN 


SONS 


SNS SINE AAA AAA AA OS 
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1SBep- 1986 09:97 :5 


SL Son. ROUTINE helpSstart (arglist) = 
BEGIN 


'e¢ 
! FUNCTIONAL DESCRIPTION: 


The keys are parsed and 
help from the help Library. 


i 

i 

i 

i 

INPUTS: 

User's command Line. 
; OUTPUTS: 
i 

i 

i 

' 

i 

i 
le 


! ROUTINE VALUE: 
Always true. 


LOCA 


ibraryname : S$BBLOCK (Cdsc$c_s_ 
porary addr, 


th, 
Listingfab : $SBBLOCK Cfab$c_bin), 
sysoutfab : $BBLOCK Cfab$c_bIn] 
sromnee : SBBLOCK nam$c_binj, 


L 
pytcad.desc : $BBLOCK Cdsc$c_s_bin], 
bln], 


: Get help keys and uppercase them 


CHSFILL (0, dsc$c_s_bln, getcmd_desc); 
getcad desc Cdsc$B_Class] = dscSk_class_d; 
LISGET_VALUE (sd_Keywords, getcmd_descJ; 
make_upper_case (getcmd_desc, .getcmd_desc ([dsc$a_pointer]); 


: Get output file. 


Suse TL (0, dsc$c_s_bln, sysoutdesc); 
IF CLISPRESENT (sd_output) 
THEN 
BEGIN 
Syequedesc Cdsc$b_class] = dsc$k_class_d; 
CLISGET_VALUE (sd_output, sysoutdesc) 


END 
ELSE 
: /NOOUTPUT was specified, so suppress all output 


BEGIN 
sysoutdesc [dsc$w_length] = ZCHARCOUNT('NL:"); 
pygeutdese dsc$a_pointer]) = UPLIT BYTE (‘NL:'); 


This routine is called by CLI when the HELP command is entered. 
he Librarian is called to extract the 


The requested help text is displayed on the current SYSSOUTPUT: 


Command descriptor 

String dogeripter for Library name 
Address of library desc 

Number of chars per Line 

FAB for output to Listing 

FAB for output to terminal 

NAM block for SYSSOUTPUT 


Init outeyt descriptor 
If /OUTPUT 
Then get output file 


V4.0-742 ° 
SCHELP.SRCJMELP.B32;1 


<= 


res emapete essen cachassintiilionsnastsceenaiaanis ~4 


13 
P_HELP 1b-Sep-1 4 4 VAX-11 Bliss-32 V4.0-742 P 6 
¥Oe-000 14- Sep- 198 93 36; 34 DISKSVMSMASTER: CHELP.SRCJHELP.B32; 1 me (3) 
H Get library file. 


if CLISPRESENT (sd_Library) ! If /LIBRARY 
THEN ! Then get Library name 


>| 
3 
<= 


PRORRORUPOPOPOPOPOPONI WWW WWII WII NII II Po PnPORONORONUW® BPOPOPOPUROROPU WII nonunornn 
m= 


CHSFILL (0, dsc$ 5° bln, Libraryname); 
Librar —_ ‘ge Glass] = dscdk _class 4; 

Ubraryze ALUE (saat lorery, Libraryname); 
piprary. addr = Libraryname; 


ELSES tlerery, addr = 0; ! Else Use null ara in call 
' 


i Initialize all flags. Set proust flag off if /OUTPUT or /NOOUTPUT qualifier 
5 rye and prompt set by default 


—2 b> bb —) 3 DL 


SES WN "OC OOBNOUVUES WN“ OOOVNOuflum— 


i 4 
i 
he lp *Os a 
IF treet Pre seh (sd output) EQL CLI$_PR 
CLISPRESENT Tsd_output) EQL CC1$_ 
ANDY ct SPRESENT (sd-prompt) EQL CLI$_ 


N 
help_flags Chip$v_prompt) = false 
help_flags Chlip$v_prompt] = CLISPRESENT (sd_prompt); 


‘C2 C9 CD C9 CD Od C9 C9 C9 CD CD CO CU CD CD CD CD CO CV CD CD 
PAWN AANA AIR POPPIN 2 tO 
MEW 


PEW OO OOVNOA UE WO OOO UE AN “OC OBNOUSWN) "OVO ONOULSWA OOO 


Parse /USERLIBRARY 


help. flags = “ete tt legs AND NOT hlp$m_ process 
ht p$m_gr group AND NOT hlp$m_system; 
fe SE terneseet (sd oneal rary) 


By default don't search any tables 
If /USERLIBRARY is specified 


GIN 
CLISPRESENT (sd_all) 
EN help_flags = help gf lags OR atepe process OR 


hlp roup OR hipSm_system; 
CLISPRESENT (sd_none 5) $m_group . . 


EN help_flags = ohelp not Rt AND NOT hl om process 


F If ALL 
H ! Then search all tables 
4 
Lp$m_group AND NOT hlp$m_system; 
F CLISPRESENT (sd_ ae . 
F 
F 
H 


If NONE 
Then don't search any tables 


If PROCESS 
ive search it 


hUpsv._ sprocess) = true; 


I 
T 
I 
T 
I 
T 
I 
TH 
I 
T 


(sd 
EN help flags fargsy $ oup] = true; Then search it 
CLISPRESENT (sd syst it . If SYSTEM 
= help_flags ChTp$v_system] = true; Then search it 
4 ‘ 
$9 } Get other flags 
6 het flags $v_pa = CLISPRESENT (sd_page); ' Set paging fla 
8 help- flags fhe $v_ te ts 2, = CLI ety SENT (sdoanetr ruct ions); ' Set tae be ag 
help_flags Chip$v_ tibt t] = CLI SPRESENT Tsd_Liblist); ' Set default iToters ist flag 


1 
! Get and set output device characteristics. 
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VAX=11 BLiss-32_V4.0-742 | 
DISKSVMSMASTERSCHELP. SREJHELP.B32;1 7%" (35. 


p-l9be 12:84:01 


Open SYSSOUTPUT 

Get characteristics of output 

Don't generate page break prompt yet 
Init prompt command descriptor 


soutnam); 
st iden): 


dsc$w_leng thi 


outputdesc 
dsc$a_ “pointer]_ = outputbuf; 


outputdesc 


4 i Open SYSSINPUT if prompting or paging in effect 


! 
soutput (sysoutfab, s 
ae Pind-fie into g STR { 
current ase fis ans. 


if helo. flags Chlp$v_prompt] OR .help_flags Chl p$v_page) 


If prompting or patin 
THEN Open_sysinput (); ! 5 ane 4s$ INPUT . 


Then open SYS 
' 
Call LbrSoutput_help to do all the real work. 


status = LbrSoutput_help Cor int. help_line, List_width ' 
getcmd_desc, .library_addr, help_flags, get_input); / 


SneSeas 


Call LBRSOUTPUT_HELP 


SSSSSS RE Sa oso oe 


74 
ers clean_up (sysout fab); ' Close all the files that have been opened 
ars RETURN .status; 
878 END; ! Of help$start 
~TITLE HELP Heuer 
-IDENT \V04=000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
53 44 52 4F 57 59 45 4B 00000 P.AAB: .ASCII \KEYWORDS\ s 
4 4444 Baone P.AAA: .LONG . 3 
0090008" 000C -ADDRESS P.AAB 3 
54 50 4D 4F 5 0010 P.AAD: .ASCII \PROMPT\ é 
0016 -—BLKB 2 
00000006 00018 P.AAC NG 6 3 
vats pas’ 88095 ADDRESS P.AAD ; 
45 47 4) 0020 P.AAF: ASCII \PAGE\ 3 
4 $4 0024 P.AAE: 3 
0000' 4 8  ODRESS P.AAF 3 
54 55 50 54 4F 0 § P.AAH ety \OUTPUT\ 3 
90000006 60 P.AAG: .LONG : 
o7g0092" $° 8 ADDRESS P.AAH 3 
59 52 41 S52 42 49 4C § P.AAJ: .ASCII \LIBRARY\ : 
004 -BLKB 1 
90000007, 00044 P.AAI: LONG : 
yy 0 48 -ADDRESS P.AAJ : 
54 53 49 4C 42 49 4C rt P.AAL: tt SEL SEES $ 
44 o 4 P.AAK: .LONG 3 
3 8 - ADDR *s 3 
53 4E GF 49 54 43 55 52 54 U8 0 i$ Sire} zeae | PRE : 
' AAS “ADDRESS, P 
59 52 41 52 42 49 4C 52 45 05 P.AAP: .ASCII \USERUIBRARY\ : 
078 -BLKB 1 


——— . “4 


LP_HELP 16-50 Sep-1 4  —- VAK=11_ BLiss-32 V4.0-742 P 
¥5e-000 bak see hi OE GES RR et RL 
£0088088 43 P.AAO: .LONG 11 ; 
; ADDRESS P.AAP F 
4c 4C 4 4 P.AAR: “ASCII \ALL\ ; 
atta — “LONG P.AAR ; 
45 4E 4F 4F P.AAT: .ASCII  \NONE\ ; 
0090009  Boogs MS! ADDRESS P. AAT 
53 53 45 43 GF 8 16 P.AAV: ASCII \PROCESS\ : 
Bo9g0006" ne ae ADDRESS P. AAV 
50 55 4F 2 se P.AAK Sci \GROUP\ ; 
90000005, 000B4 P. AAU: ey ; 
4D 45 54 53 99 8 0 8 P.AAZ: .ASCII \SiSTEM\ ; 
00C BLK 8 2 
SI Fs sen | 
OF 74 20 4E 52 55 54 45 52 20 73 73 65 ; OOCC P.ABB: ASCII PF RETURN t ti re, : 
20 2 2 2E 20 65 75 GE 69 7% GE GF 68 20 90005 eb seen sagen. } 
Bo090000" oor) |e’ “aM ss ABB 
54 55 50 4E 49 246 53 59 8 O00F4 P.ABD: “ASEH YSYSSINPUT\ : 
a a ) 
3A 4C GE 80198 P.ABE: :ASCII  \NL:\ : 


-PSECT SOWNS,NOEXE,2 
00000 SYSINCHAN: 


P.AAY: .LONG °p ' 
| 


2 4 
00004 SYSOUTRAB: “8 
00048 SYSOUT NAME : . 
00050 SYSOUTDESC: ‘ 
00058 OUTPUTDESC: ; 
00060 oUTPUTBUF : 
-BLKB 512 
00000000 00260 CURRENT -HEIGHT: : ; 
00264 LIST -HEIGHT : , 
00268 HELP_FLAGS: 
-BLKB 4 
SD_KEYWORDS= P.AAA 
SD~PROMPT= PAC | 
5D" PAGE= P-AAE 
SD" OUTPUT= P- AAG 


<r 


F 13 
P_HELP 16-Sep-1984 4 VAX-11 Bliss-32 V4.0-742 Page 9 H 
rats 12: Soo 1382 9}: 3: 34 DISKSVMSMASTER: CHELP.SRCJHELP.832;1 ° (3) Vv 
$0 LIBRARY: P.AAI : 
$D~ -t18L 1ST P.AAK ; 
SD-INS RUCT IONS= P.AAM ; 
SD -USERLIBRARY= P. AAO F 
SD"ALL= P.AAQ ; 
SD“NONE= P.AAS ; 
SD“PROCESS= P. AAU ; 
50" GROUP= P. AAW ; 
SD"SYSTEM= P-AAY ; 
PAGEBRK_PROMPT= P.ABA ; 
SYSINPUT= P.ABC F 
.EXTRN LIBSGET_INPUT, SCRSERASE_PAGE : 
XTRN LBRSOUTPUT ; 
EXTRN CLISGET VALUE, CLISPRESENT 3 
-EXTRN LBRSGL_RMS CLI$_PRESENT 3 
TEXTRN CLIS_ DEFAULTED, CLIS_NEGATED ; 
-EXTRN LBRS_ENDTOP! ; 
.PSECT SCODE$,NOWRT,2 ; 
03FC 00000 .ENTRY HELPSSTART, Save R2,R3,R4,R5,R6,R7,RB,R9 = 0742 ; 
9 000000006 99 9E 0090 MOVAB CLISGET_VAL 9 ; ; 
8 900000006 0 9€ 000 MOVAB CLISPRESENT, R8 : ; 
7 00000000° EF 9E 9019 MOVAB OUTPUT, R7 : ; 
56 00000000" EF 9€E 0001 MOVAB iH CP FLAGS, R6 : : 
5E FEEC ce 9E OO1F MOVAB -276SP), §P : ; 
08 00 6E 7 00 2¢ 00 3 movcS #0, (SP); #0, #8, GETCMD_DESC : 0778 : 
FB OAD 02 90 900 A MOVB = #2 GET CMD DESC+3 + 0779 : 
F8 AD OF OO0ZE PUSHAB GETCMD DEST : 0780 ; 
D4 =A? «OF 00031 PUSHAB sp _KEY ratte : ; 
69 02 FB 00034 CALLS CLISGET ;YAtue : ; 
FC AD DD 00037 PUSHL eet cab : 0781 ; 
F8 AD 9F OOO3A PUSHAB é TeMD sty : ; 
00000000v_ EF 02 FB 00030 CALLS , MARE_UPPER_C 3 3 
08 0 6E 00 2C 00044 vC5 ; * (SP); #0, i. sf VSOUTDESC + 0785 ; 
FDE8 C6 0049 : ; 
57 DD 0004C PUSHL 7 : 0786 ; 
68 gi FB O04 CALLS #1, CLISPRESENT : : 
10 0 E 0005 BLBC v ; : 
FDEB C6 02 90 00054 MOVB #2, SYSOUTDESC+3 + 0789 ; 
FDE8 cg 9F 00059 PUSHAB SYSOUTDESC : 0790 : 
DD D PUSHL R7 F : 
69 2 FB F CALLS #2, CLISGET_VALUE F 3 
1 62 BRB 2 ; : 
FDE8 6 80 064 1$ MOVW #3, SYSOUTDESC > 0796 ; 
FDEC 6 0004 (C7? 9E 69 MOVAB P.ABE SYSOUTDESC +4 : 0797 
10 AZ 9F 00070 28 PUSHAB SD_L : 0802 
68 QI FB 7 CALLS #17 ISPRESENT ; 
1A 0 : 7 BLBC RO, ; 
08 00 6E w 00 C f MOVCS #0. (SP), #0, #8, LIBRARYNAME > 0805 
F3 AD 02 90 VB #2, LIBRARYNAME+3 : 08 
FO AD OF PUSHAB CTORAR RYNAME : 0807 
10 a? OF 7 PUSHAB SD _LIBRAR : 
$9 02 FB A CALLS #27 C ISGeT_V : 
2 FO AD 9€ VAB UTORAR RYNAME | VET BRARY ADDR > 0808 
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000000006 8F 


01 Ab 01 00 
66 01 05 
66 01 4 


00000000v_ EF 
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70 


0080 
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38¢ 91:97:34 VAX-11 Bliss-32_V4.0-742 
4 12:54:01 DISKSVMSMASTER: CHELP.SRCJHELP.B32;1 


4$ 
LIBRARY_ADDR 
HELP_F 


“ALL 

#1 LISPRESENT 
it. HELP_FLAGS 
#1, CLISPRESENT 
#14, HELP_FLAGS 
SD_PROCESS 

wi CLISPRESENT 
#2, HELP_FLAGS 

4 CLISPRESENT 
#4, HELP F LAGS 

#17 CLISPRESENT 
#8, HELP_FLAGS 


#1; CLISPRESENT 
#1, HELP_FLAGS+1 
IONS 


#17 CLISPRESENT 
RO, #5, #1, HELP_FLAGS 


SD_L 

#1, CLISPRESENT 

RO, #4, #1, HELP_FLAGS 
OUTNAM 


SYSOUTFAB 
eee OPEN_SYSOUTPUT 


re 
a 
: 081 
; 81 
; 0818. 


: 0819 


: 0821 
; 0823 


83 


: 0833 


H 13 
LP_HELP 16-Sep-1984 01:37:54 VAX-11 Bliss-32 V4.0-742 Page 11 H 
Ee 008 13-80 8-138e EE ee DISKSVMSMASTER: CHELP. SRCJHELP.832;1 . (3) V 
68 AE 9F 0014 PUSHAB SYSOUTFAB : 
00000000V EF 0 Fe 1 CALL » FIND_FILE_INFO : 
FB AG FC AG C3 001 SUBL3 #3, LIST-HEIGAT, CURRENT_HEIGHT + 0859 
Fore C6 BA 150 CLRW UTDESC 3; 0860 
FOFS 6 FDF ¢ 1 MOVAB TPUTBUF OVTPUTDESC +4 + 0861 
4 £8 001 BLBS LP_FLAGS, 13$ + 0866 
7 01 Ad €E9 00168 BLBC HELP FLAGS+1, 14$ ; 
00000000v_ EF 00 FB OO16F 13$: CALLS #0, OPEN SYSINPUT : 0867 
00000000 EF 9F 00176 14$:  PUS GEf_INPUT ; 08 : 
0044 &8F 8B 0017C PUSHR #*M2R2,R6> > 087 
F8 AD OF 001 PUSHAB GETCMD. DESC + 0872 
10 AE 9F 001 PUSHAB LIST WIDTH : 
00000000v EF 9F 001 PUSHAB PRINT _HELP_LINE F 
000000006 99 6 FB 1 § CALLS #6, LBRSOUTPUT_HELP 3 
2 0 019 MOVL RO, STATUS s 
64 AE 9F 00196 PUSHAB SYSOUTFAB + 0875 
00000000V EF 1 FB 09199 CALLS #1, CLEAN_UP ; 
50 2 0 1" MOVL STATUS, RO : 0877 
04 OO1A RET + 0878 


; Routine Size: 420 bytes, Routine Base: S$CODE$S + 0000 
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. 
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_ 
oe 
. 
a 
. 
. 
. 
e 
. 
o 
a 
o 
© 
° 
. 
2 
. 
o 
o 
o 
. 
o 
e 
. 
o 
. 
e 
oO 
+ 
o 
© 
e 
. 
a 
. 
© 
7 
e 
° 
o 
. 
o 
. 
ec 
. 
e 
. 
oO 
> 
° 
. 
e 
. 
e 
. 
« 
. 
° 
. 
e 
. 
e 
. 
° 
. 
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. 
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sr ergot 88e Mb: Slidt | NES cSumBHASTER SEMEL. SReJHELP.832;1 °% (45 


H 
V 


H 79 1 ROUTINE get_input (get_str, prompt_str, out_len) = > 
: $38 : rt eB gae capeta Mh eee 
; 294 3 
; 295 8. 144 : 
: 39 FUNCTIONAL DESCRIPTION: : 
3 3S 5 This routine prompts the user and gets a Line of text from SYSSINPUT. : 
; 90 | INPUTS: ; 
3 0¢ 89 } get_str = address of the string descriptor to receive the input string ; 
3 04 631 prompt_str = address of the descriptor for the prompt string : 
: 4] 0898 out_len = address of a longword to receive the length of the input string : 
: 308 0895 2 | OUTPUTS: ; 
; 309 9536 : : 
; 310 089 : get_str : as described above 
3 3511 0898 : 
3 \¢ 0899 ' ROUTINE VALUE: 
s a 900 : 
; 3146 901 ' The status of the QJ0. 
; 315 $305 : 
P4 16 90 leoow 
: 317 0904 
s 318 0905 MAP 
; 319 B08 get_str : REF $BBLOCK 
; 320 090 prompt_str : REF S$BBLOCK; 
3 1 0908 
; ¢ 3484 LOCAL 
: 910 josb : VECTOR (2) ! 1/0 status block 
3 $e 11 term_char : VECTOR C4], ! Q10 input termination characters 
: 5 aig status; i Local status 
. ies 
; 3 B32 If paging is in effect, always generate a page break after a prompt. 
: 50 i, current_height = .list_height - 3; ' Generate page break with next help text 
; 91 
3 3 09 Y ; If -fy enower for this prompt already exists, then skip the prompt and 
3 use it. 
; 5 9 i 
3 4 $ if (. { output gesc Cdsc$w_length]) NEQ 0) if old response is around 
; en use 
; 33 5 Pe rast str Cdsc$w Gtdese tas goupputes c Cdsc$w_length); i Copy it 
5 9 § SAOVE (.outputdesc Ht Hy en ny. i 
; 0 -ourputdess dsc$a rBointer). ' 
3 1 9 8 get str Cdsc$a - major) } 
3 ¢ 9 outputdesc (dsc$w “Length ' Clear old descriptor 
§ ? RETURN true; Return success 
: a6 9 : é 
3: 34 934 ' If SYSSINPUT is not a terminal, then use LIBSGET_INPUT. Otherwise, 
: 8 935 !' do Q10's to solicit input. 
| 


seta 


oo000n0o 
FEW 


oo0on°o 
Se tae ae 
mse 


SSSSSSo 
PRES 
oor 


oooCooooo 
oDoOOooo00Oo 
PAAADAUIUIA SE 


vuvVUUU 
VFWN SO OONOUES WN Oo 


SSRSSSSS 


0968 


0208 


04 


Sep-1 
iicSep- 1964 04:97:54 
! 
if .help_flags Chip$v_notterm 
THEN TF (etotus = t TbSget ee {. 
OR (. status “Eat RMSS “B6Fs 
THEN RETURN . 
ELSE SIGNAL_ stor. , es 


i Initialize input termination characters. 
; Use usual set plus 


term_ char = 8; 

term_char ° = term_char C2J; 
term_char ¢ = IX'FFFFEOFF’; 
term_char = %x°80000000'; 


1 
: Do Q10 and wait for completion. 


if NOT (status = $Q10W (CHAN = -sysinchan, 


B = iosb 
FUNC = 108. READVBLK OR 10s. R ADPROMPT, 


Pl = .get_sStr Cdsc$a_pointer 


P2 = h p$c_ agesize,— 
P4 = term_c 
P5 = sproapt,. “ote dsc$a_pointer] 


P6 = prompt — “str Cdsc$w_ ength])) 


THEN SIGNAL_STOP (.status); 
get_str Cdsc$w_length] = .(iosb(0])<16,16> + 1; 


RETURN .status; 
END; 


-EXTRN 
OOFC 00000 te 
57 000000006 00 9€ it MOVAB 
56 00000000" EF 9E 000 MOV 
5E 8 C boig SUBL 
C6 020C £6 0 § 854 SUBL 
1 98 18 MOVZWL 
13 (1 3 BEQL 
50 04 ac O MOVL 
60 2 8 024 MOVW 
B0 04 86 1 027 mOvCc3 
66 B4 Dd CLRW 
50 1 00 F MOVL 
& RET 
22 0211 6 06 €1 1$: BBC 
E 8 AC 70 MOVQ 
4 AC 00 PUSHL 
000000006 99 Q F § CALLS 
Dd 4 MOVL 


VAX-11 Bliss-32 V4.0-742 
Disk aKSVMGH TER: CHELP.SRC 
! Is SYSSINPUT a terminal? 


str,.prompt_str,.out_len)) ! No, use LIBSGET_INPUT 


i Return success or EOF 
' Stop if error 


Size of terminator mask 
Address of terminator mask 
Quadword terminator mask 


Input channel 

1/0 status block 

Q10 type ‘8 Ba with prompt 
Input buf 

Size of he A 

Terminator mask 

Prompt string address 

Prompt string Length 

Stop if error 


Return length of get string 
! Return Q10 status 


SYS$Q10W 


Save R2,R3,R4,R5,R6,R7 
LIBSSTOP, R7 
ae dt R6 


S 
LIST HEIGHT, CURRENT _HE1GHT 

Oufeuté DESC, 

GET_STR, RO 

R1,~(RO 

R1, @OUTPUTDESC+4, a4(RO) 

oufPu UTDESC 


#6 HELE flags 2$ 


PR ROMPT (SPS 
reir. 
-LIBSGET_ INPUT 

R * STATUS ~ 


JHELP .B32; 1 


Page 


<r 


K 13 
LP_HELP 16-Sep-1984 01:37:54 VAX-11 Bliss-32 V4.0-742 Page 14 H 
-Sep- :34: DISKSVMSMASTER: CHELP. SRCJHELP.B32;1 (4) 
YE -008 eet 7 Pe ee } 21°" V 
2 . 4A BLBS STATUS, 4 : 
0001827A $F bt 4D CPL STATUS, 138938 + 0939 
Dd 56 PUSHL STATUS + 0941 
67 j FB CALLS a. LIBSSTOP : 
6 8 38 2$ MOV #8. TERM CHAR + 0947 
6 AE 08 AE V TERM CHAR®S TERM_CHAR+4 + 0948 
8 AE EOF a 6 CVTWL = #-793 TERA_CHAR + 0949 
C Ag 8000 99 F D $ 0 #-2147483648, TERM_CHAR+12 : 0950 
3 08 A p MO PROMPT _ RO + 0962 
E , 6 ¢ f MOVZUL (R >. =(SP5 : 
8s At oF Me: SHAB TERA. CHAR : 
2 0200 &8F ac MOVZWL #512, -(SP) : 
5 04 AC 00 000 VL GET STR, R2 ; 
4 A DD 0089 PUSHL  4(R2) ; 
7E 7C 99 C CLRQ. = =(SP) : 
30 Ag 9F 000 F PUSHAB 1088 : 
37 0D 0009 PUSHL # F 
aan a3 CRD’ SCP) nN 
coors ied bet. Ge ares ; 
05 53 CE 00042 LBS STATUS, 3$ ; 
53 OD 900A PUSHL STATUS > 0963 
67 or FB OO0A7 ALLS #1, LIBS$ST 
62 12 AE 1 Al OOOAA 3S: ADDW 1, I0SB+2, (R2) + 0965 
50 53 DO OOOAF 4S: MOVL STATUS, RO : 0967 
04 00082 RET + 0968 


; Routine Size: 179 bytes, Routine Base: SCODES + 01A4 


Re Oe Se Oe Oe Be Se Be Se Se Se Se Se Se Ge Se Se Be Se Se Se Se Se Se FH Seay SHS Se Se Se Se Se Se Se Ge Se Se ee Se Se Se ee Se ee Se Se Se Se Se Se Be Se Be esas 


13 
voe-000"” IESeoctg¥e QU:HZSS  YMRCLIABMSHER YEP 242 ece.osorn 28" cf 
3 


3 1 ROUTINE print_help_Lline (Linedesc) = 

3 BEGIN 

3 5 7 

FY 7 tee 

: ih FUNCTIONAL DESCRIPTION: 

; 75 2 Driver for the two output routines in this module. 

; 78 : Calls put_page_brk and put_output. 

; £8 g | INPUTS: 

; i linedesc = address of —— descriptor for the Line of help 

: 1 text to be outpu 

; : i OUTPUTS: 

; 5 None. 

: 401 2 { ROUTINE VALUE: 

: 40 14:44 Status returned by put_page_break 

: 405 1 2 ie. 

; rts 336 

; 40 099 IF NOT put page break () ! Put a page break 
; 408 0994 THEN RETURN CBRS$_ENDTOPIC; ! Then terminate Listing 
3 ref 0995 put_output (.linedesc); ! Output help to terminal 
; 411 0999 RETURN true; 

: 412 0998 1 END; 


0000 00000 PRINT_HELP ie 


‘ Save pte ; 0969 

00000000v EF 90 FB 00002 CALLS #0, PUT_PAGE_BREAK : 0993 
0 €E8 00009 BLES —SséR : 

000000006 8F BO 990¢ MOVL #LBRS_ENDTOPIC, RO ; 099% 

04 aC OD oo14 1$: PUSHL LINEDESC > 0995 

00000000v EF oi FB 17 CALLS at, PUT OUTPUT ined 

Be ied RET : : 0998 


; Routine Size: 34 bytes, Routine Base: S$CODES + 0257 


<r 


4H 13 
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; 416 9998 1 ROUTINE put_page_break = 

; 415 BEGIN ’ 

3 218 1 

; (41 1 ; !+¢ 

; 218 : } FUNCTIONAL DESCRIPTION: 

: 420 1005 ; If output is going to a video terminal, and paging is enabled, 

$ 2 1 199 : then a page break is forced if the screen is full of help text. 

; 4 : 1 ! INPUTS: 

; 424 1 : 

; 425 1 + : None. 

; 4 $ 101 : 

; 4 Iol¢ ! OUTPUTS: 

; 4 101 : 

; 429 1014 } None. 

3 4 1015 : 

; 431 1918 ' ROUTINE VALUE: 

; 4 ; 101 : 

; 45 94 ! False, if user responds with a '?° to a conditional page break. 

: 4 101 ! True, otherwise. 

; 435 1020 ; 

3 6 1021 leo 

; 4 10 ¢ 

; 438 10 LOCAL 

3; 439 1024 status, ' Local status longword 

3 rr \3 5 prompt_desc : SB8BLOCK (Cdsc$c_s_bln]; ! Descriptor for page break prompt 
3: 446 10 . IF .help_flags ChipSy_page] ' if paging enabled 

: 44 1028 THEN IF V.current_height LSS .list_height - 4) ! Then if not three or less Lines left on th 
3: 444 9 THEN current_height = .currenft_height + 1 ! Then simply increment the Line count 
3: 4445 1030 ELSE BEGIN ' Else clear the screen 

3: 446 1031 4 IF (.current_height EQL .List_height - 4) ! And if in the middle of some help informat 
3 rei 1038 ? THEN BEGIN ! Then output a page break prompt 
: 4449 198% 6 outputdesc fdscéu Length] = 1; ! Init blank string 

: 450 1035 4 outputbuf (0,0,8,0] = 10; ' 

: $33 \3 ? put_output (outputdesc); ! Output a blank Line 

3 43g 1938 & outputdesc Cdsc$w_length] = 0; ! Init input string 

3: 6546 1039 4 status = get_input (outputdesc, ! Issue page break prompt 

; 455 et 4 pogebrk proapt. outputdesc); ; 

; 4 1041 4 IF .status EQL RMSS_EOF ' If EOF was detected 

3 : i 1966 ? THEN SEXIT(); ! Then exit help now 

: 459 1044 5 SELECTONE (CHSRCHAR (.outputdescldsc$a pointer? ' Test termination character 

3 $69 . 5 ? + .outputdesc Cdsc$w_length] - 1)) OF SET ! 

; 46 104? 4 ZX"1A'): ' Jf CTRL/Z 

; 46 1 3 & EXIT); !' Then exit help now 

; 464 1 4 

3; 465 1050 4 "9°33 ‘if ? 

: £06 1051 4 RETURN false; ! Simply continue 

; 46 1 26 4 

: 468 1055 4 COTHERWISE): ! Anything else 

3: 469 1054 4 F .outputdesc Fdsc$u_tength) EQ, 1 ! If no text 

; 470 1055 4 THEN outputdescldsc$w_length] = ! Then simply continue 


ae 


WEL HELP 16 > a 4 $ 9}: 3: ** VAX-11 Bliss-32 V4.0-742 Page 17 


-Sep-1984 DISKSVMSMASTER: CHELP.SRCJHELP. B32;1 (6) 
: 471 1 ELSE BEGIN !' Use text as next d 
; 47 1 § outputdesc Cdsc$w glenerhd © ; 5 nt coca 
: 47 1 8 eutqutsese dsc$w_length] - 1; : 
> 4474 1 RETURN false ! 
oe ie - : 
: 47 1 4 TES; 
; $i : i END; 
: 4 1065 scr$erase_page (1,1); ' Clear screen 
: ih : current *neig t=; Reset Line count 
: 48 1 . 
>; 484 1969 RETURN true; 
; «485 1070 END; 


eEXTRN SYSSEXIT 
000C 00000 PUT_PAGE_BREAK: 
~ WORD 


Save R2,R3 ; 0999 
53 000000006 00 9€ 99002 SYSSEXIT, R3 ; 
2 00000000' cf 9 999 OUTPUTDESC, R2 : 
ogni tk. ES bors StBe HELP FLAGS*1 : 1027 
50 020¢ ce 04 ¢€3 00018 SUBL3 CIST seigute RO + 1028 
5 0208 ce p 20035 CMPL CURREUT _REIGHT, RO ; 
0208 3 D6 00025 INCL | CURRENT_HEIGHT : 1029 
6A 11 00029 BRB $ ; 
58 1 900 B 1S BNEQ 38 : 1031 
6 8A 8 0020 MOVW OUTPUTDESC : 1034 
08 A A 90 000 MOVB +16, OUTPUTBUF > 1035 
52 DD 000 PUSHL Re : 1036 
00000000v EF 01 FB 000 CALLS Pur eQyrPur : 
$2 B4 0003p CLAW 0 ‘feu > 1038 
DD 0003F PUSHL + 1039 
00000000' EF 9F 00041 PUSHAB PAGEBRK _PROMPT ; 
: DD 00047 PUSHL : 
FEDD CF 2 Fe 0049 CALLS GET_I : 
0001827A = &F 0 04 CMPL srArUs. -}98958 > 1041 
5 12 000 BNEQ $ 3 
1 DD 9 PUSHL > 1042 
3 1 FB 9 CALLS #1, SYSSEXIT : 
6 6 3 2¢ 2$ MOVZWL OUTPUTDESC, RO + 1045 
04 =A g F ADDL2 OUTPUTDESC+4, RO : 
50 FF A A re MOVZBL -1(RO) 3 
1A 91 CMPS)—soRO, #26 + 1047 
7 12 A NEQ 3$ : 
1 DD C PUSHL #1 > 1048 
63 1 Fe $ CALLS #1, SYSSEXIT : 
ff 1 BRB 5$ : 
3F 91 00073 3$: CMPB RO. #63 > 1050 
01 + AF Boos PePu TPUTDESC, #1 : 1054 
¢ % 7B BNEQ rf : 


HELP ot? i$-beor)9ee OU:G7:G4 WARCHL BLise=S2 v4 0-742 | Page 18 


2 a4 ; cLRW QyTPUTDESC : 1055 
é ef 4$: DECW QUTPUTDESC + 1058 
1 BRB : 1059 
1 DO 5$: PUSHL #1 + 1065 
1 DD PUSHL # : 
000099006 0 : F 9 CALLS #2, SCRSERASE_PAGE ; 
020 f D MOVL wi, CURRENT HEIGHT i 1066 
1 B0 09 68: MOVL wi. R + 1069 
50 D4 0099 7$: CLRL = RO t 1070 
4 00098 RET : 


; Routine Size: 156 bytes, Routine Base: $CODE$ + 0279 


ita 


address of ae descriptor for the Line of help 


CHSMOVE (.Linedesc Cdsc$w_length], .linedesc Cdsc$a_pointer], Linebuf); 


OFC 00000 PUT_OUTPUT: 
WORD 


5 copys" Ee aE 
06 A? 6E if if 
56 04 AC D 14 


; 487 107 ROUTINE put_output (Linedesc) = 

$s 6 107 BEGIN 

; ¢ i ; 'e4 

; 49 73 | FUNCTIONAL DESCRIPTION: 

; 638 : 7 ; Put a Line of help text to SYSSOUTPUT. 
; 499 3 i INPUTS: 

; 499 1081 i Linedesc = 

; re ! ¢ } text to be outpu 

; 1084 i QuTPUTS: 

: : i None. 

; 08 1089 i 

P4 08 1358 ROUTINE VALUE: 

: og 1990 i Always true. 

3; 1091 : 

: 508 1036 lee 

: 8% 109% 

; i 1095 Linedesc : REF SBBLOCK; 

; ig 1097 LOCAL 

; 514 1098 Linebuf : SBBLOCK Chip$c_pagesizel, 

3 12 1998 status; 

; 9 1101 sysoutrab prebév.rss = 0; 

; 18 1108 sysoutrab Crab$l“rbf] = Linebut; 

; 20 1104 IF .Linedesc Cdsc$w_length] NEQ 0 

; $3 i 5 THEN BEGIN 

; § 1109 pyeeutra® rab$w_rsz] = .Tinedesc Cdsc$w_length); 
if ota e 

; 6 1110 3 IF NOT (status = SUT (RAB = sysoutrab)) 

; 5 1111 THEN SIGNAL_STOP ( (shr$_writeerr OR hipse. 
; 1316 1, sysout_name, .status, .sysoutrab [r 
: 530 1114 2 RETURN true; 

3 1 1115 END; 


-EXTRN 


facility_OR sts$k_error), 
ab$l_stvJ); 


'Of put_output 


SYSSPUT 


oR3,R4,R5,R6,R7 
+34, R7 


AB+ $4 
P 


+54 
SYSOUTRAB+40 
R6 


t 


0- 
P 


4 
R 


On 


JHELP.B32;1 


1071 


-—— 
— 
RRS 


i —_—— 


14 
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66 : 18 TSTw (RO) ; 
1A BEQL 1$ : 

6E 0% 8B 66 2 1¢ VC3- (R6), @4(R6), LINEBUF : 
6 66 0 1 VW  (R6), SYSOUTRAB+34 : 

DE A? 9F 00024 1$ PUSHAB SYSOUTRAB : 

000000006 00 QI FB 00027 CALLS #1, SYS$PUT : 

1 9 £8 000 i LBS ‘STATUS : 

EA A? DD 000 PUSHL SYSOUTRAB+12 ; 

50 DD 000 PUSHL US ; 

22 A? 9F 000 PUSHAB SYSOUT_NAME : 

1 DD 00039 PUSHL # ; 

007610D2 «BF ODD 00 PUSHL #7737554 : 

000000006 90 5 F 4} CALLS #5, LIB$STOP : 

0 1D 0048 2$: MOVL #1. RO : 

04 00048 RET ; 


; Routine Size: 76 bytes, Routine Base: S$CODES + 0315 


16 | 
voL-000"” HE$eoct98e QURZ:EG  YMRCMABMSHEH2NS:9°2aneue.osarn "2%" 


3 111 ROUTINE find_file_info (fab, Listwidth) = 

: 111 BEGIN 

oe eee 

; i i FUNCTIONAL DESCRIPTION: 

: 11 i Determine the file characteristics, i.e., page height and Line width, 

; 540 11 : of the file specified by the input fab. Also, check to see if device 

; re. 1} : : is suitable for page breaks. 

; 43 1126 i INPUTS: 

; 49 i ! fab = address of FAB for file of interest 

; ris i} : Listwidth = address of longword to contain Line width 

; 49 113¢ i QUTPUTS: 

; 551 1134 i Listwidth : as described above. 

3 26 1 5 } Also implicitly: List height and help_flags. 

; 34 1 $ { ROUTINE VALUE: 

: 36 11 3 i Always true. 

; 5 1140 : 

: 58 1141 loo 

HS baw 

: 561 1144 fab : REF $BBLOCK; 

; 368 1148 $ BIND 

: 564 1143 namblk = .fab Cfab$l_nam] : SBBLOCK; ! NAM block associated with input FAB 
: 366 1169 3 MACRO 

; 20h HF ddp$b_pagelen = 3,0,8,0%; ! s** Hardwired page length offset *** 
; 369 113¢ @ LITERAL 

; 570 115 getdvilen = 4*12 + 4; 

HR TE soca 

; 378 115 etdvidesc : SBBLOCK pgetgvtlend. 

; 574 115 evnamdesc : $BBLOCK (Cdsc$c_s_bin], 

3 of? 115 devbufsiz, 

; 278 115 devclass, 

3 OF 1160 devdepend : $BBLOCK [4], 

PH HE | Sees 

: en 1168 -listwidth = hlp$c_liswidth; ! Assume default width of 80 
; SB 1165 devnamdesc pdscfu_ length) = .namblk Cnam$b_dev); ! Get the device name 
3 if 1166 devnamdesc Cdsc$a_pointer) = .namblk (nam$T_dev); i 

: 585 116 

; 1188 : Do a SGETDVI to get the parameters of interest. 

; 2 Wnt CHSFILL (0, getdvilen, getdvidesc); ! Init the SGETDVI buffer 
; 589 1172 


F 


IgcBenctgee 01:87:54 


ita 


4; 
dvis caer 
getdvidesc dev 


oe 1 S 4; 
31 fe +3 3 - dvi$ de rot em 
$8 7 -0, = getdvidesc (0,0,16,03; 
95 5 ¢- 16,0) = 4; 
7 getdvidesc -0.16,0] = dvi$_devdepend; 
getdvidesc 8. 32.0] = devdepend; 
getdvidesc -0,52,0] = getdvidesc (12,0,16,0); 


getdvidesc 9. 
getdvidesc 9. 


Se ee) 
nhunun 


getdvidesc Spsicses C24,0,16,0); 


PEReSSSSE 


oa 
Oo 
al 


getdvidesc 


see 


getdvidesc .0,16,0]) = 
-¥,16,0J = duis -devbufsiz; 
getdvidesc (40, e 0) = devbufsiz 
° = 


getdvidesc 
getdvidesc 
getdvidesc 
getdvidesc (8 
getdvidesc } 
1 
2 
4 
G 
: 


oo 
a ke a a td a a to 2 2 = = = = 2 2 = 2 SS 2 2 a 2 = 2 


PIII IFIP II III IDI et td hd ot et tt 


Soteraasel tala eebal shige is probably not initialized 
eTer e sym S$ proba no n av.ize 
INF O#250 r 1 4 


veloc oced LOCAL symbol Deve Ass is probably not initialized 
Referenced LOCAL symbol DEVTYPE is probably not initialized 


007C 00000 FIND_FILE INFO: 
QOR 


ODunw™m 
ooom 


08 


VAX-11 BLiss-32 V4.0 2 
DIEKSVMGMASTERSCNELE GReIMELP.032;1 2% a 


! Get the device class 


Get the device dependent chars 


Get the device type 


Get the device buffer size 


! If output device is spooled 
! Then use the secondary device 


Get the device characteristics 


Get the Listing width 

Get the Listing height 

If output device is not a terminal 

Or output device is not a video terminal 
Or terminal type is unknown 

Then do not generate page breaks 


: 

90 
ons 4 getdvidesc (44,0, getdvidesc (36,0,16,0]; 
2\9 $8 IF tie ete preest _dev] AND dev$m_spl) NEQ 0 
oi¢ 95 aetaetdees 18:0 2 Ba ghasetece OR dvi$c_secondary; 
61 96 getdvidesc (14, “8.48, devdepend OR dvi$c_secondary; 
614 9 getdvidesc te ° = vig “devtype OR dvi$c_secondary; 
66 4 Eeperteees . 18. 9 = dvi$_devbufsiz OR dviSc_secondary; 
61 00 
618 01 IF SGETDVI (DEVNAM = devnamdesc, ITMLST = getdvidesc) ' 
619 8 THEN BEGIN : 
620 0 elListwidth = MINU (.devbufsiz, hlp$c_maxwidth); ! 
621 04 List_height = -devdepend Cdap$b _pagelen]; ! 
6 ; 05 IF (T. deve lass NEQ dc$_t ! 
6 06 ae devdepend { etsy. “sco e)) OR ' 
624 0 ao pe EQL dt$ teyunk n ! 
625 08 THEN help. flags = .help_flags AND NOT hl p$m_page; ! 
626 09 ND; ! 
627 10 
628 11 RETURN true; 
629 12 


'0f find_file_info 


-EXTRN SYSS$GETDVI 


Save R2,R3,R4,R5,R6 ; 1116 
6(SP). SP 


4 AE 9 MOVAB =7 F 
4 Ac OD MOVL FAB, R6 + 1147 
8 Aé p A MOVL 4(R6) , RO F 

BF 9A OO00E MOVZBL #80, @LISTWIDTH > 1163 


r : 
N 
= 

| 

| 

| 

a 


HELP HELP tat Sep=1984 12:36:01 DPKSVMEMASTERSCMELP. SRC IMELP.832;1 9% (B} 
OOD ; 1165 
v 7(RO), DEVNAMDESC i 44 
1 AE a A 00 i moves GFCnO DEYRMDE + esc 7 
34 00 . AE ¢ : 1173 
Tent) aoe ee Bi 
G 4 
A 18 AE 9 VL. #655864. GETDVIDESC#? * 4180 
; gomme 8G SR ae i 18h 
é3 ’ ; 
he ee At 
e A G ‘ ; 1188 
SH oouoogt M$ iss RUM IRIRESEAE, zee ei: 
40 AE s 3 se bee MOVAB GETDVIDESEs 6, GETDVIDESC : 1193 
# o P+ 1 
10 40 A 2 3 09 Mov "3 GETDVIDESC+2 4 + 1196 
ONE BO 00074 move =f, GETDVIDESC#1 : 1197 
¢ AE B0 00078 MOVW = s#7, GETDVIDESC +26 : 1198 
. 9 BO 0007¢ Mov #9 GETDVIDES : 4201 
: FE RSS Be cee : 
F 000 PUSHAB GETDVIDESC : 
se $f 0087 PUSHAB DE VNAMDESC 
m oe 7C 0008 CALLS #8, SYSSGETDVI Eee! 
000000006 OF ES RnR8 BLEC RO, : : 120 
37 AE DO 00096 MOVL ae R ; 
5 °F 85 bt ooug CHPL 
00000084  8F BY 3A Senne BLEGU 2 ts, 
ac e500 BOOK? 28: ROWE RO, D3) LIST _HEIGHT : 1204 
90000000" EF OF AE 9A 000A Rov ZBL Biotest bot ; 1205 
goooooe2 | &F Ba 42 OO0BA BOC #4, _DEVDEPEND#1, 38 : 1388 
OD AE 4 €1 boone BBC eeareey . : 1 
05 04 AE 05 000C1 TSTL > 1208 
te og, Bk BE ue ruacen ; 
00000000’ fF 1 DO 000CD 4$: MOVL #1, R : 1212 
04 00000 


; Routine Size: 209 bytes, Routine Base: S$CODE$ + 0361 


H 14 
weLP HELP 16-Sep ie 9}: 97: 4 VAX-11 Bliss-32 V4.0-742 Page 36 
14-Sep 4 7:34:01 DISKSVMSMASTER: CHELP.SRCJHELP.832;1 (9) 


; 631 1213 1 ROUTINE open_sysinput = 

3 6 ¢ 1 13 BEGIN 

; ° 121 

3 1 18 14+ 

; ? 5 ! : } FUNCTIONAL DESCRIPTION: 

3; © 1 15 ; Open SYSSINPUT. 

; 6 1220 : 

3; 6 1221 ! INPUTS: 

; 640 1 § : 

; 641 : } None. 

; $08 1225 ! OUTPUTS: 

> 644 1 $ } 

; oF : 5 sysinchan = lLongword containing channel assigned to SYSSINPUT 

; $09 1229 ! ROUTINE VALUE: 

; 648 1230 : 

; 649 1231 ! Always true. 

; 650 1 4 : 

; 651 1 leo 

; O26 1234 

; 65 1235 LOCAL 

; 654 1 devinfobuf : SBBLOCK [ sees, Lengeni ! DIB buffer 

; 655 1 ; devinfodesc : SBBLOCK (dsc$c_s_bin], ' DIB desc 

; 656 1238 sysinstring] : VECTOR [nam$c_maxrss, BYTE), ! Space for SYSSINPUT resultant string 
; 657 1239 sysinstring2 : VECTOR [nam$c_maxrss, BYTE), ! Space for SYSSINPUT resultant string 
; 658 1370 sysindesc : $BBLOCK dsc$c_s_bin}. ! String descriptor for SYSSINPUT 
; 659 1241 sysinname : S$BBLOCK (dsc$c_s_bin], ! String descriptor for resultant name 
3 oo : ¢g status; 

3 666 1244 sysindesc pgscéu. length) = .sysinput Cdsc$w_length]; ! Init input desc 

3 oer ' $2 sysindesc [dsc$a_pointer] = .sysinput Cdsc$a_pointer]; 

3; 665 1 23 sysinname pgsc8u_ lenges = nam$c_maxrss; ! Init output desc 

3 666 : 28 sysinname Cdsc$a_pointer] = sysinstringe; 

; 668 P 1250 WHILE (status = $TRNLOG (LOGNAM = sys tngess ! Recursively translate input desc 
; 669 P 1251 RSLLEN = sysinname [dsc$w_length], 

3; 670 1 26 RSLBUF = sysinname)) 

3 of) } 37 DO BEGIN 

3 $78 1255 4 IF (.status EQL SS$_NOTRAN) ! Stop when not translatable 

: 674 1 2$ HEN EXITLOOP 

3; fs 1 ELSE IF NOT .status ! Signal any errors 

: $7 : 38 THEN SIGNAL_STOP (.status); 

; Of 1 $9 IF CHSRCHAR (.sysinname Cdsc$a_pointer]) EQL %x'1B' 

: or 1261 4 THEN BEGIN 

; 680 1 6 4 sysinname pgsciu. length) = .sysinname [ scSy_length) - 4; 

3 os) : o 4 : sinname ([dsc$a_pointer] = .sysinname ([dsc$a_pointer] + 4; 

3 re 1265 sysindesc (dsc$w_length] = .sysinname Egacty, Length): ! New input desc 

; «684 1 96 sysindesc Ldsc$a_pointer] = .sysinname (dsc$a_pointer]; 

; 685 126 sysinname [dsc$w_length] = nam$c_maxrss; ! New output desc 

; 6 1268 sysinname dscSa_pointer) = 

; 68 1269 4 -sysinname Cdsc$a_pointer] EQL sysinstring! 


“YuNwDYvEITIIIIIIISs 


—— -_ ee ee 


14 
HELP_HELP 1b-5e -1984 01:37:54 VAX-11 Bliss-32 V4.0 
¥5e-008 1 ~ep-19 4 03:32 234 DISKSVMSMASTER: CHELP 
H 127 THEN sysinstring 
; 6 1 i ELSE sysinstrin ¢), 
beet 1g 9 PR See cane 
; 69 1 Re IF NOT (status = SASSIGN (DEVNAM = sysinname, CHAN = sysinchan)) 
; ret : f THEN SIGNAL_STOP (.status); 
; 695 127 devinfodesc (dsc$w_length] = dib$k_length:; 
3 $36 127 devinfodesc Ldsc$a_pointer] = devinfobuf; 
; 69 127 IF SGETCHN (CHAN = .sysinchan, SCDBUF = devinfodesc) 
3 698 80 THEN IF {-devintobut Cdib$6_devclass] NEQ dc$_term) 
3 $30 1 e DASSGN (CHAN = .sysinchan); 
; 701 1 4 help_flags Chlp$v_notterm] = true; 
; 77 1284 END; 
: 70 1285 
: 704 1286 RETURN true; 
: 705 1287 END; 
-EXTRN SYSS$TRNLOG, SYSSASSIGN 
-EXTRN SYSSGETCHN, SYSSDASSGN 
001C 00000 OPEN_SYSINPUT: 
eWORD Save R2,R3,R4 
54 000000006 00 9€ 00002 MOVAB LIBSSTOP, R4 
53 00000000' EF 9E 00009 MOVAB SYSINCHAN, R 
SE FD74 CE 9€E 00010 MOVAB -652(SP), 
08 AE 00000000° EF B60 00015 MOVW SYSINPUT, SYSINDESC 
0c AE 00000000’ fr DO 0001D MOVL 30 Tage Lhe P SYSINDESC+4 
6E FF F 98 00025 MOVZBW #255, SYSINNAM 
04 AE 10 AE 9E 00029 MOVAB SYSINSTRING2, SYSINNAME+4 
7E 7C 000 F 1$: CLRQ -(SP) 
7E 04 B38 CLAL -(SP) 
0c AE 9F 00 ¢ PUSHAB SYSINNAME 
10 AE 99F 4 PUSHAB SYSINNAME 
1¢ AE 9F 000 PUSHAB SYSINDESC 
000000006 00 98 FB 000 CALLS #6, SYSSTRNLOG 
25 0 dO 0004 MOVL RO, STATUS 
4 3g E9 0004 BLBC STATUS, 6$ 
00000629 =s BFF S52 D1 Snes CMPL STATUS, #1577 
3 004F BEQL 
05 E 8 2] BLBS STATUS, 2$ 
dD 4 PUSHL STATUS 
64 01 fo ; § CALLS #1, LIBSSTOP 
18 04 BE 9 23: CMPB SYSINNAME+4, #27 
1 05D BNEQ $ 
6€ 4 A F SUBW #4, SYSINNAME 
04 AE 4 C ADDL #4, SYSINNAME+4 
08 AE bE 80 3$: MOVW  SYSINNAME, SYSINDESC 
0c AE 046 AE A MOVL LOT gens tee SYSINDESC+4 
FF 8F of MOVZBW #255, SYSINN 
0110 CE H MOVAB SYSINSTRING1, RO 
06 =A 9 7 CMPL SYSINNAME+4, RO 
0 7C BNEQ 
50 10 AE 9E 7E MOVAB SYSINSTRING2, RO 


=< 


=742 p 5 
“SRCIMELP.B32;1 °%° (33 


14 
LP_HELP 1b-Sen-1986 01:37:54 VAX=11 BLiss-32_V4.0-742 p 6 
yok ae oe bt ri) 6s et BL 0 


05 11 RB 5$ : 
50 0110 : 9 ‘ MOVAB SYSINSTRING!, RO : 
04 AE 9 5$ MOVL RO, SYSINNAME+4 : 
F BRB : 1250 
5 C F 6$ CLRQ = = (SP) + 1274 
g pd PUSHL : 
OC AE 9F 0009 PUSHAB SYSINNAME : 
000000006 9 e 96 CALLS #4, SYSSASSIGN ; 
D 90 VL RO, STATUS : 
0 = A LBS STATUS, 7$ : 
DD 000A PUSHL STATUS + 1275 
64 5 FB OOOA CALLS #1, LIB$STOP ; 
84 AD 74 BF 9B 7$ MOVZBW #116, DEVINFODESC : 1277 
8 AD C AD 9E 000AD MOVAB DEVINFOBUF, DEVINFODESC+4 + 1278 
4 AD 3 OB PUSHAB DEVINFODESC + 1279 
7E 7C 0008 CLRQ = = (SP) : 
ze D4 0008 CLRL 3s = (SP) : 
63 DD 00089 PUSHL  SYSINCHAN : 
000000006 00 05 FB 008 CALLS #5, SYSS$GETCHN : 
16 0 : 00C BLBC @ ; 
42 BF 90 AD 91 000¢ CMPB = DEVINFOBUF+4, #66 + 1280 
OF 13 OOOCA BEQL : 
63 DD 000CC PUSHL SYSINCHAN + 1282 
000000006 09 01 FB 000cE CALLS #1, SYSS$DASSGN ; 
0269 ¢ 40 8F 88 0000 BISB2 #64, HELP_FLAGS+1 : 1283 
5 01 DO 000DB 8s: MOVL #1, RO + 1286 
04 O00DE RET + 1287 


; Routine Size: 223 bytes, Routine Base: S$CODE$ + 0432 


SNS 
Od a dd dd 


CESS oS Serna 


SOODNOUEWN "OC OOBNOUSUN “ODOOWNOusr 


a pe a en ee 


in 


~“ 
ww 
0 
vuvvUU vuvv 


v 


AEWI—OOW NONE WN O09 NONE WIV OOD NEARS OO NFM OMS OOoe 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


X-11 Bliss-32 V4.0-74 e 7 
SKSVMGMASTERSLMELP. GRE IWELP.B32; 1 a 


16-Sep-1986 01:37:5 
1o=8e8=138e 93:92:3 


= 
< 
—> 


ROUTINE open_sysoutput (sysoutfab, sysoutnam) = 


BEGIN 


lee 
} FUNCTIONAL DESCRIPTION: 


i 

i 

: INPUTS: 

! sysoutfab = 
sysoutnam = 
OUTPUTS: 
i 

i 

i 

i 

i 

i 
i. 


ROUTINE VALUE: 


sysoutfab, sysoutrab, sysout_name : 


Always true. 


Open SYSSOUTPUT. 


address of FAB for SYSSOUTPUT 
address of NAM block for SYSSOUTPUT 


updated as expected. 


sysoutfab : REF S$BBLOCK, 


sysoutstring : VECTOR Cnam$c_maxrss, BYTE), 


sysoutnam : 
LOCAL 
status; 
SNAM_INIT ( NAM 
ESS 
ESA 
RSS 
RSA 
SFAB_INIT ( FAB 
FNS 
FNA 
ONM 
RAT 
FAC 
NAM 
SRAB_INIT ( RAB 


REF $BBLOCK; 


! Space for SYSSOUTPUT resultant filename 


-Sysoutnam, 
nam$c_maxrss, 
sysoutstring, 
nam$c_maxrss 
sysoutstring); 


-Sysoutfab, 

-Sysoutdesc pgscéu. length? 
shy2eureete dsc$a pointerd, 
cd S$DISK:HELP.LIS”, 


PUT, 
-Sysoutnam ); 


sysoutrab 
.Sysoutfab ); 


IF NOT (status = SCREATE (FAB = .sysoutfab)) 
N BEGIN 


THE 
sysout_name 
Sysout_nane 


dsc$w_length] = .sysoutnam (nam$b_esl); 
dsc$a_pointer] = .sysoutnam (nam$T 


a 
SIGNAL“STOP ( (shrS_openout OR hip$c_facility OR sts$k_error), 


END; 


1, Sysout_name, .stafus, .lbr$gl_rmsstv ); 


————_—_—— 


14 
1b-5e -19 :37:56  VAK-11 Bliss-32 V4.0-742 Pa 8 
1 ~3007 1382 es ee DISKSVMSMASTER: CHELP. SRCJHELP.B832; 1 ae 485 
; 764 1345 sysout_name [dsc$w_length]_= .sysoutnam C(nam$b_rslj; 
; £0? ! $ sysout “name pascSe-te7ate? = - sysoutnae [noett Peaks 
; res 1 If NOT (status = SCONNECT (RAB = sysoutrab)) 
3 res 1 THEN SIGNAL_STOP ( (shr$_openout OR hip$c_facility OR sts$k_error), 
3 % : ; + Sysout_name, .status, .sysoutrab Crab$l_stv] ); 
: 771 1 RETURN true; 
: 272 im ton" = 
-PSECT S$PLITS$,NOWRT,NOEXE,2 
4C 2— 50 4C 45 48 3A 48 53 49 44 26 53 59 53 00108 P.ABF: .ASCII \SYSS$DISK:HELP.LIS\ ; 
53 49 OO11A : 
SRMS_PTR= SYSOUTRAB 
.EXTRN SYSSCREATE, SYSSCONNECT 
«PSECT S$CODES,NOWRT,2 
03FC 00000 OPEN_SYSOUTPUT: 
«WORD Save R2,R3,R4,R5,R6,R7,R8,R9 : 1288 
59 000000006 00 9€ 90002 MOVAB LIBSSTOP, R9 ; 
ae to EE OF ObOt MOVAR | SoSetSPN gb e 
4 08 AC Hi $0015 MOVL § SYSOUTNAM, R : 1324 
0060 &8F 00 bE 09 2c 00019 mMOVCS #0, (SP), #0, #96, (R7) : 
ef “Reb my mms : 
RM Rie 9 era itchitigee. can : 
0c A? 6E 9 00 5 MOVAB SYSOUTSTRING, 12(R7) : 
56 06 ac D 0036 MOVL  SYSOUTFAB, R : 1332 
0050 «BF 00 6E 00 2c 005A MOVCS #0, (SP), #0, #80, (R6) 
Ab 5003 BF : 0042 MOV 420483 (R6) : 
16 Ab 1 004 MOVB #1, 22¢R6) ; 
1 Ab 0202 8F B 048 MOVW #514, 30(R6) : 
a6 £29 005 MOVL 7, 40(R6) 2 
¢ Ab C (AB 5 MOVL  SYSOUTDESC+4, 44(R6) : 
Aé 000000 9° EF } SA MOVAB P.ABF, 48(R6) ; 
4 Ab AR 3 MOVB sisouf ESC, 52(R6) F 
5 Ab 11 MOVE #17, 53(R65 : 
0044 «8F 00 ry ; 09 ¢ MOVCS #0, (SP), #0, #68, SRMS_PTR ; 1335 
BC ag 6403 F 80 8 MOVW #17409, SRMS_PTR : 
Fa A 6 D 7A MOVL 6, $RMS_PTR?60 : 
6 DD 0007 PUSHL > 1337 
000000006 99 1 F CALLS #1, SYSSCREATE : 
09 MOVL RO. STATUS : 
1 A BLBS STAT S, 1$ ; 
cs A 8 MOVZBW a SYSOUT_NAME : 1339 
04 A C a? OD 1 MOVL 12(R7), SYSOUT NAME +4 : 1340 
000000006 00 DD 00096 PUSHL LBRSGL’RMSSTV > 1342 


Sy rt 


“1 :37:54  VAX=11 BLiss-32_v4.0-74 ° 9 
ets rae ee eS eng a 


ita 


DD PUSHL STATUS ; 
3 wat if Ep 
007610A2 8F OD PUSHL #77375 : 
9 5 FB CALLS #5, LIB$STOP : 
8 03 A 38 MOVZBW 3(R7), SYSOUT_NAME + 1345 
06 A 4 a? p MOVL  4(R7), SYSOUTZNAME+4 : 1 3 
BC AS OF PUSHAB SYSOUT : 1 
000000006 Q fe CALLS #1, SYSS$CONNECT : 
D VL —-RO, STAT : 
1 E LBS = STATUS : 
C8 AB DD PUSHL SYSOUTRAB+12 : 1350 
DD PUSHL STATUS F 
DD PUSHL R8 + 1349 
1 0D PUSHL #1 : 
007610A2 BF ODD PUSHL #7737506 ; 
9 5 FB CALLS #5, LIBS$STOP : 
0 1 00 MOVL #1. RO : 1352 
04 RET + 135 


; Routine Size: 218 bytes, Routine Base: S$CODE$ + 0511 


7 
| 
| 
| 
: 


N 14 
16-Sep-1984 01:37:54 VAX-11 Bliss-32 V4.0-742 P 0 
19-808- 1382 te eee DISKSVMSMASTER: CHELP.SRCJHELP.B832;1 al Tt 


; 774 1 ROUTINE clean_up (sysoutfab) = Vv 
: 775 1 BEGIN sft . 
; £78 1 0 
3; @ 1 !+e 0 
H a4 : FUNCTIONAL DESCRIPTION: 8 
; f } Deassign SYSSINPUT if assigned and disconnect and close output file. 8 
: 7 é 1 i INPUTS: 0 
NB 1 : 8 
; ree : sysoutfab = address of FAB for SYSSOUTPUT 

; 786 i QUTPUTS : 
: 788 1 i None. 0 
: 789 1 ' 0 
; 790 1 ' ROUTINE VALUE: 0 
: $33 : Aluays ¢ ; 
2 : ways true. 
; 796 1 leo 7 
: 795 1 7 
: 9 : ses tfab : REF SBBLOCK ; 
3 sysoutfab : 3 

: 798 1 , 

; 799 1 LOCAL 

3 ris : status; 

; 80 138 IF (.help flags Chip$v_prompt] OR .help_flags Chl p$v_page]) 

3 808 1388 AND NOT pele. floss Ehipsy notterm . ° tein 

: 804 1384 THEN IF NOT (Status = SDASSGN (CHAN = .sysinchan)) 

3 st 138? THEN SIGNAL (.status); 

: 809 1389 IF NOT (status = SDISCONNECT (RAB = sysoutrab)) 

: 808 1388 THEN SIGNAL ( (shr$_closeout OR nipse rac i lity OR sts$k_warning), 

3 rst 1333 1, Ssysout_name, .status, .sysoutrab Crab$l_stv]); 

: gi 1391 IF NOT (status = $CLOSE (FAB = “sysoutfab)) 

3 i 1 3 THEN SIGNAL ( (shr$_closeout 0 whose, (pci t tty OR atsth_werning? . 

; Bz 1334 1, sysout_name, .status, .sysoutrab Crab$l_stvJ); 

: 815 1395 2 RETURN true; 

; 816 1396 END; 


.EXTRN SYSSDISCONNECT, SYSSCLOSE 
001C 00000 CLEAN_UP: 


‘ Save R2,R3,R4 : 1354 
54 990000006 00 9€ 0000 MOVAB LIBSSIGNAL, R4 ; 
3 00000000' EF 9E 00 MOVAB HELP_FLAGS. R3 : 
04 E 1 BLBS §HELPTFLAGS. > 1382 
if 01 AS E 1 BLBC HELP™FLAGS+1, 2% ; 
16 01 A 06 £0 00017 18 S #6, RELP FLAGS+1, 2% : 1383 
FD98 f dD 1 PUSHL SYSINCH > 1384 
000000006 00 1 FB 0002 CALLS #1, SYSSDASSGN : 


; Routine Size: 


68 


6 
FD9C 
000000006 


FDA8 
FDEO 
‘ 00761058 
04 
000000006 2 
FDA8 
FDEO 
. 00761058 
50 


Routine Base: S$CODES + OSEB 


~N 
wf 


Ww 
wn 


Gibin anno eases 
@aurnowo 793>N 


YP Eroma 


DODO UE VINO F OBVON UM VIAOM OVW" 
UF WWW 9 UF AO VO 


Ooo MOV OVTOMI "SO "OO OVTUMIO *OVOMGO 
SNNINO Oo 


SOD OVO BOWVTWVIS "9 VT080O “Wo@wo 


Solas Mss pled gL 


STAT 
ee arae ¥3 

#1, LIBSSIGNAL 

SY R 

a. SYS$DISCONNECT 


Sou 
Wi, SYSS$CLOSE 
RO, STATUS 
STATUS, 4$ 
SYSOUTRAB4+12 
STATUS 
SYSOUT_NAME 
#7737632 

#5, LIBSSIGNAL 
#1. RO 


$-32_v4.0- 1 
Sfea7 clei ne aweLp.032;1 ect) 


TRTETETE TELE TETETOTS COTO SE Tee e Tere re rere rarer) 
—_— = _ 
ww 
& ) 
eS 9S 


ers saateheinan we 


15 
Routine make_upper_case 1$-e0-1984 9b 8ci8t 


ita? 


; 


7 1 ZSBITL ‘Routine make_upper_case'; 
ROUT INE make_upper_caése (idesc, oname) = 


RETURN true 
1 END; 


$ 


001C 00000 MAKE_UPPER EASE: 


V4.0-742 P 
NELP.SRCIHELP.832;1 °° 13 


! If non-empty string 
! Then for each character 


! Convert character to uppercase and copy 


3 1 

; 1 

3 1 

; 14 

3 ¢ 14 144 

; Z 1? ; FUNCTIONAL DESCRIPTION: 

3 5 14 ; Upper case the name described by string descriptor idesc and 
3 $ 12 put the name at location oname. 

3 3 17 } INPUTS: 

; : 1408 } idesc = address of string descriptor for input text string 
; § 1o1) H oname = address of buffer to contain uppercase output string 
; 1218 ' OUTPUTS: 

; 5 1414 ! 

3 1415 : oname : as described above 

; 835 1618 ! 

3 38 141 !' ROUTINE VALUE: 

:; 839 1213 ! 

; 0 141 ! Always true. 

3 1 1420 : 

$ ¢ 1421 feo 

; Se 14 ; 

; B44 14 MAP 

; 845 1424 idesc : REF S$BBLOCK, 

; 846 1425 oname : REF VECTOR[,BYTE); 

; 847 1426 

; 848 1427 BIND 

; 849 1428 namlen = Sécogt decsu. ton th] : WORD, 

3 320 1? 4 iname = idesc(dsc$a_pointer] : REF VECTORC,BYTE); 

; B52 1431 IF .namlen GTRU 0 

3 S37 1o36 THEN INCRU i FROM 0 TO .namlen-1 

3 bee 1232 DO IF .inmamel.i] GEQU ZASCII‘a' 

; 526 1435 AND .iname(.i] LEQU ZASCII‘'z' 

; 85 1338 THEN onamel.iJ] = ,inamel.i] - (ZASCII‘a’ = ZASCII'A') 
; 858 14 ELSE IF .inamel.i) 

; 859 1438 THEN oname[.iJ] = 

: 1439 ELSE onamel.i] = .inamel.i]; 

3 1 1440 

3 § 1441 

3 106g 

5 144 


'Of make_upper_case 


oW Save R2,R3,R4 : 1398 
53 04 04 1 0000 ADDL3 #4, IDESC, R3 : 1469 
04 BC 8 900 TSTW aibesc : 1431 

A 13 OOO0A BEQL «6 : 


15 
P_HELP Ib-5¢ -1984 01:37:54 VAX-11 Bliss-32 V4.0-742 e Hi 
yOs-008 Routine make_upper_case 1 =30071 382 93330584 DISKSVMSMASTER: CHELP.SRCJHELP.B32;1 oe 135 
54 04 z MOVZWL @IDESC, R4& 3 143 : 
ihe 6 far i ss| (3 
8 31 0001 B48 $ ; | 
51 3 08 AC C1 00016 1$: ADDL3 ONAME 1, R1 : 34 
B342 9A 18 MOVZBL a0(R sti, RO + 1634 31 
61 = &F 50 91 CMPB RO, #9 : 31 
o¢ 1F 4 BLSSU : 31 
7A oF 91 6 CMPBsaRO, #122 + 1435 3 
6 1A A BoTRY : 3 
61 50 83 00 SuBB #32, RO, (R1) + 1436 i! 
09 " 09 2$ CPB RO, #9 : 1437 i 
61 0 38 00 7 MOVB #32, (R1) + 1438 3 
11 0003A BRB : 34 
61 90 0003C 3$: MOVB = RO, (R1) + 1439 3 
52 D6 O003F 4$: INCL I + 1434 31 
54 52 D1 00041 S$: CMPL si, RG : 31 
D0 18 90044 BLEGU 1 : 31 
50 01 00 00046 6$: MOVL #1, RO + 1441 31 
04 00049 + 1443 i! 
; Routine Size: 74 bytes, Routine Base: SCODES + 066C 8 
4 
; He ee: i END 'Of modul 34 
+ 867 1446 0 ELUDOM 293 Peg ; 
.EXTRN LIBSSIGNAL, LIBSSTOP ; 
; PSECT SUMMARY ; 
; Name Bytes Attributes ; 
: SPLITS 284 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) :- 
> SOWNS $20 NOVEC, WRT. RD .NOEXE,NOSHR, LCL, REL. CON.NOPIC.ALIGN(2) 3 
: $CODES 1718 NOVEC.NOWRT. RD. EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(2) : 
; cocccece Symbols -------- Pages Processing : 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 135 1 581 00:01.1 


3; Information: 3 


Library Statistics 
| 
J 


vos-o0s” Routine make_upper_case if-te =3687 1382 93:32:34 bTeK SK$V vm nasi ERSCHEL ~oReIHELP.B32;1 Page 43 


3; Warnings: 

; ; Errors! 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:HELP/OBJ=OBJ$:HELP MSRC$:HELP/UPDATE=(ENH$:HELP) 
Size: 1718 code + 904 data bytes 
Run Time: : 56. 


Elapsed Ti T+ 
Lines/CPU Mins $3 
Lexemes/CPU-Min: 3 
Memor 1 ut Used: 221 pages 
Compilation Complete 
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